Top 10k strings from Astronomy (1984)(Piper Books)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   7 MOONFLAG=0
   5 ;"                                ":
   4 a$="      
   4 STOP THE TAPE
   4 C           
   4 8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
   4 888888888888888888888888888888888
   4 (chars/256
   3 moonlong=moonlong+
   2 sw        
   2 moonflag=1
   2 moonflag=0
   2 long=long-360
   2 long=long+360
   2 chars=64599
   2 chars=63831
   2 chars=15616
   2 angle=angle+
   2 a         
   2 V$=V$+"   
   2 SUBROUTINE                  FOR DOUBLE                      HEIGHT CHARACTS                 WHEN CHARSET 2                  CODE LOADED
   2 SPECIAL NOTES
   2 ROTATION PERIOD=   Ds   Hs  Ms
   2 PLANET:        
   2 ORBITAL PERIOD=    Days
   2 LENGTH OF ORBIT AROUND THE SUN
   2 LENGTH OF DAY MEASURED
   2 IN EARTH Days,Hours,Minutes
   2 HOT OR COLD?: 
   2 DISTANCE FROM SUN
   2 DIAMETER:      Kilometres
   2 DDxx@@@@DD<<
   2 A$="        PLANET SPOTTING":
   2 =      Million Kilometres
   2 ;"  PRESS ANY LETTER WHEN READY"
   2 ;"              ";
   2 ;"                  ";
   2 ;"                                "
   2 ,chars-256
   2 "         
   2                   ROTATES:       Once in 59 days  
   2                   ROTATES:       Once in 10 hours 
   2                     ATMOSPHERE:    Hydrogen,Helium  
   2                     ATMOSPHERE:    Hydrogen &       
   2                     ATMOSPHERE:    Carbon Dioxide   
   2                       SATELLITES:    None             
   1 zsm       
   1 zodiac    0u
   1 zod       
   1 z(i)=long:
   1 xxxxxxxxxxxxxxxxxxxxx88888888888xxxxxxxxxxxxxxxxxxxxx88888888888xxxxxxxxxxxxxxxxxxxxx88888888888`````````````````````88888888888`````````````````888888888888888`````````````````888888888888888````````````````````888888888888````````````````````888888888888``````````````````88888888888888``````````````````88888888888888``````````````````88888888888888``````````````````   88888888888```````````````` 8   88888888888````````````````  8 888888888888
   1 x=r1-rearth*
   1 ve=learth-wwt
   1 v=l1-sunlong:
   1 truelong=l11
   1 tpt,eet,wwt,et,at
   1 tp,ee,ww,e,a,ii,leo
   1 today's moon-phase
   1 sunlong>360
   1 sunlong=sunlong-360
   1 sunlong=sunlong+360
   1 sunlong=n+ec+eg
   1 sm        I
   1 s(learth-l1))<0
   1 s(learth-l1))/(rearth-r1*
   1 s(l1-learth)
   1 r(sunlong)
   1 r(l11)-n1)*
   1 r(l11)-n1)
   1 print=9800
   1 ppppppppppppppppppppppppppppppppppppppppppxxxppppppppppppppppppppppppppppxxxxppppppppppppppppppphhhhxxxxxxxhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhpppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp88pppppppppppppppppppppppp8888888
   1 pp        
   1 planets preamble1 
   1 phases of the moon
   1 p,282.596403
   1 n=no-.0529539
   1 mp=np+ee-ww
   1 moonlong>360
   1 moonlong=moonlong-360
   1 moonlong<0
   1 mm=l-.1114041
   1 menu2            
   1 menu              
   1 me=ne+eet-wwt
   1 m=n+eg-wg:
   1 m1m=mm+ev-ae-a3
   1 lo,po,no,ii,e,oo
   1 lhTgLiGlPpDvH
   1 learth>360
   1 learth=ne+(360
   1 learth=learth-360
   1 learth=learth+o:
   1 l=13.1763966
   1 l1=angle+leo
   1 jd=b+c+dd+d+1720994.5
   1 input complete 
   1 i)*(d/tpt)
   1 i$="The EARTH travels round the SUN,but to us the SUN seems to move round the EARTH.     We call thepath of the Sun's apparent orbit          the ECLIPTIC."
   1 i$="                                                                "
   1 glyphs    
   1 fill=23866
   1 ff,209.439
   1 fBbBB@BB@ 
   1 f=,1.7716017
   1 eg,wg,e,ro,oo
   1 ecliptic-----------------------
   1 earth starts
   1 eP,19.21814
   1 e$="ecliptic-----------------------
   1 ddd=truelong+(360
   1 ddd=ff1+ff2/100
   1 datein=509
   1 d=jd-2444238
   1 d(moonlong)
   1 count+" FIGURES":
   1 c=l-sunlong
   1 c(learth-l1)))
   1 c(l1-learth)
   1 bx,228.0708551
   1 a1=a-a2*256
   1 a$="Published by":
   1 a$="PIPER BOOKS LTD.1984":
   1 a$="For Chalksoft Ltd.":
   1 a$="(See Pages 44 to 51 )":
   1 a$=" RE-ENTER "+
   1 a$=" "+b$:
   1 a$="  choose and press ""A"" or ""B""":
   1 a$="  Press any letter when ready.":
   1 a$="   PRESS ""Y"" IF CORRECT            PRESS ""N"" TO RE-ENTER":
   1 a$="    VENUS is only visible at     twilight, morning or evening.   JUPITER, MARS and SATURN can    be seen in the Constellations   of the Zodiac at all hours of              the night."
   1 a$="    B 
   1 a$="    A 
   1 a$="        press ""A"" or ""B""":
   1 a$="         PLANET SPOTTER":
   1 a$="         MOON EXPLORER":
   1 a$="         ENTER A YEAR                   PRESS 4 FIGURES ":
   1 a$="         ENTER A MONTH                  PRESS 2 FIGURES          (eg:January= 01 December= 12)":
   1 a$="          ENTER A DATE                   ENTER 2 FIGURES        (eg:Enter 1st as 01,21st as 21)":
   1 a$="         
   1 ZBRB@|BB< 
   1 Z(a)=Z(a+1
   1 Z$(a)=Z$(a+1
   1 Y>lL,76.4997524
   1 W$=W$+" ":
   1 VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
   1 U$="YOU WILL NEED PLENTY OF TIME TO        ENTER YOUR DATA":
   1 U$="Before you can use this program    the Space Probe Computer     requires some information about the Planets to be entered into        its Memory Banks.          You can find the  information   which you will need between         Pages 12 & 33 of your                 FACTBOOK"
   1 U$=" IF YOU WISH TO LOAD THE NEXT    PROGRAM FROM THE CASSETTE THEN  YOU MUST PRESS KEY ""L"" AND      THEN PRESS ""PLAY"" ON YOUR       TAPE RECORDER.":
   1 U$=" IF YOU DO NOT WISH TO LOAD THE  NEXT PROGRAM THEN PRESS ANY     OTHER LETTER.":
   1 U$="  SEARCHING FOR NEXT PROGRAM":
   1 U$="   The special name for the     information you will enter into      the Computer is DATA.":
   1 U$="   DO YOU WISH TO CONTINUE?":
   1 U$="     PLANET PROBE":
   1 U$="          STOP THE TAPE":
   1 The EARTH travels round the SUN,but to us the SUN seems to move round the EARTH.     We call thepath of the Sun's apparent orbit          the ECLIPTIC.Z
   1 TRUELONG<SUNLONG)-sunlong:
   1 TO PAGE THE DATA 
   1 TO FIND LONG. OF MOON           
   1 TAN with degree input
   1 SW        
   1 SUB TO PAGE THE                 CONSTELLATIONS      
   1 START OF LINE FINDER
   1 SORTING GOES HERE
   1 SIN with degree input
   1 REGION    P
   1 QpbM,222.972
   1 PPROBE    
   1 PP        
   1 PLANETS INCONSTELLATIONS INFO                      
   1 PLANETS IN CONSTELLATIONS                          
   1 PLANETS               
   1 OQ,5.145396
   1 November  October  September    February January December NovembMay    April    March    Februarber   August   July   June   MayI
   1 No OF PRINT POSns.
   1 NUMERIC CHECK
   1 MercuryVenus  Mars   Jupiter                            
   1 MercuryPluto  NeptuneMars   Uranus Venus  Saturn Jupiter
   1 MOON PREAMBLE      
   1 MOON MENU         
   1 MOON EXPLORER
   1 MOON                            
   1 MERCURY         VENUS           MARS            JUPITER         SATURN          URANUS          NEPTUNE         PLUTO           
   1 MENU2                           
   1 LATN & ENGLISH
   1 KEYS 5 & 8 OR PRESS 0 TO LEAVE  
   1 JULIAN DAY        
   1 INTEROGATION SUB  
   1 INPUT ROUTINE
   1 INITIAL MENU       
   1 I$="YOU HAVE ENTERED YOU MUST:-":
   1 I$="PROGRAM THEN PRESS ""N""":
   1 I$="ON TAPE TOGETHER WITH THE DATA  ":
   1 I$="IF YOU WISH TO SAVE THIS PROGRAM":
   1 I$="IF YOU DO NOT WISH TO SAVE YOUR":
   1 I$="5) PRESS ""R"" AND WATCH THE ":
   1 I$="4) PULL OUT THE ""EAR"" PLUG FROM    THE RECORDER":
   1 I$="3)            RECORDER.":
   1 I$="2) PUT A BLANK CASSETTE IN THE":
   1 I$="1) SET YOUR RECORDER READY.":
   1 I$="   THERE WILL BE 2 SEPARATE        ""SAVES"" WHEN YOU WILL BE":
   1 I$="   PLANET-PROBE DATA PROGRAM":
   1 I$="   INSTRUCTED TO PRESS A KEY.":
   1 I$="   BOTTOM OF THE SCREEN.":
   1 I$="            COMPLETE":
   1 I$(J)=".":
   1 HN,49.4032001
   1 HELP=MENU:
   1 GIVES APPROXIMATE CONSTELLATION ACCORDING TO ECLIPTIC LONGITUDE                     
   1 F,30.10957
   1 F)DISTANCE TO SUN"
   1 ESTABLISHMENT                   
   1 ENDING              
   1 END             
   1 E)ROTATION PERIOD"
   1 DDD=DDD/(360
   1 DATE ENTRY
   1 DATA BANK2 (X$(10,9,64)         
   1 D)ORBITAL PERIOD"
   1 COS with degree input
   1 CHR       
   1 CENTRE SUB
   1 C=change N=not
   1 C)DIAMETER"
   1 C     ATMOSPHERE:    Methane          
   1 C             
   1 C            
   1 BBFBB@DBB@
   1 B H C H C C C C 
   1 ARRIVE WITH DESIRED PLANET IN T$
   1 ALTER POSITION WITH G,H
   1 A$=B$+" THE "+C$:
   1 A$="with the SEASONS of the year.":
   1 A$="visible CONSTELLATIONS vary":
   1 A$="seen at any one time. The":
   1 A$="program you will discover":
   1 A$="link together.":
   1 A$="in "+b$:
   1 A$="how the CONSTELLATIONS":
   1 A$="When you load the ""STAR MAP""":
   1 A$="The whole ZODIAC cannot be":
   1 A$="TO LOAD THE NEXT PROGRAM":
   1 A$="PRESS ANY LETTER"+(" FOR NEXT"
   1 A$="PRESS ""R"" TO RE-START":
   1 A$="PRESS ""PLAY"" ON THE RECORDER.":
   1 A$="PRESS ""L"" AND THEN":
   1 A$="PRESS ""C"" TO CLEAR":
   1 A$="Look for planet "+d$+" "+
   1 A$="ERROR - ONLY 30 DAYS THIS MONTH":
   1 A$="(SEE PAGES 90 & 91)":
   1 A$="(SEE PAGES 88 - 91)":
   1 A$=" REMEMBER "+
   1 A$=" PRESS A LETTER"+(" FOR NEXT PLANET"
   1 A$="  Press ""A"" or ""B"" to choose":
   1 A$="  B) I CAN TELL YOU WHERE TO         LOOK FOR A PLANET TODAY                OR ANY OTHER DAY":
   1 A$="  A) I CAN SHOW YOU EACH OF THE      12 ZODIACAL CONSTELLATONS":
   1 A$="   PLEASE WAIT A FEW MOMENTS":
   1 A$="   HOW MANY DAYS IN FEBRUARY?":
   1 A$="     SELECT ANY DATE FROM                1984 TO 1994":
   1 A$="        choose a section":
   1 A$="        WHICH MONTH???":
   1 A$="        I AM CALCULATING!":
   1 A$="         INVALID YEAR":
   1 A$="         CHECK THE DATE":
   1 >d,2.4893741
   1 <B@B><<BB<<
   1 <<||><<|BB<
   1 ;("NEW MOON"
   1 ;("ECLIPSE OF SUN"
   1 ;("(See Page:10)"
   1 ;"^^^SUN'S RAYS^^^"
   1 ;"YOU CAN LEAVE THIS SPECIAL NOTE           OR CHANGE IT                
   1 ;"Why not make a note of this NOW?":
   1 ;"The CONSTELLATIONS of the ZODIACare those groups of STARS within        that narrow band."
   1 ;"TYPE THE NAME OF ANY PLANET AND THEN PRESS THE ""ENTER"" KEY":
   1 ;"STILL SEARCHING":
   1 ;"SORTING COMPLETED!" 
   1 ;"SEARCHING"
   1 ;"SATURN   "   
   1 ;"ROTATION PERIOD"
   1 ;"RECORD NOT FOUND":
   1 ;"Press R to REPEAT or M for MENU"
   1 ;"PRESS H or C or B":
   1 ;"PRESS ANY LETTER TO CONTINUE"
   1 ;"PRESS ANY KEY FOR ANOTHER CHOICE"
   1 ;"POSSIBLE"
   1 ;"PHASE DAY ";d
   1 ;"ORBITAL PERIOD"
   1 ;"Moon on";
   1 ;"MOON ORBIT":
   1 ;"JUPITER";
   1 ;"I can give you an idea of this  SEARCH PROCEDURE.                                                 PRESS ANY LETTER WHEN READY"
   1 ;"DISTANCE FROM SUN"
   1 ;"DIAMETER"
   1 ;"Any other letter  to start again"
   1 ;" You will require information    about the following PLANETS:-":
   1 ;" YOUR PROGRAM WILL BE SAVED      WITH THE NAME ""planets""":
   1 ;" WHAT WE SEE  ";
   1 ;" The months shown beneath  each  Star Chart indicate  the  time  of year  when  the  centre  of  that  part of the Map lies due  SOUTH  at MIDNIGHT." 
   1 ;" The  STAR MAP  shows  how  the  constellations  of  the zodiac  are  linked.  They  are  shown  by symbols."    
   1 ;" Press any key  for NEXT PLANET ";
   1 ;" PRESS FIGURES ONLY: IF YOU     NEED A DECIMAL POINT PRESS ""M"""     
   1 ;" PRESS FIGURES ONLY,NO COMMAS:   PRESS ""M"" FOR A DECIMAL POINT"     
   1 ;" PRESS ANY LETTER WHEN YOU ARE         READY TO PROCEED"
   1 ;" PRESS ANY LETTER WHEN READY"
   1 ;" PLEASE PRESS THE LETTERS OF A   PLANET'S NAME  (EXCEPT EARTH)  "
   1 ;" IF YOU WANT TO SORT AGAIN IN    SLOW MOTION THEN PRESS ""S""":
   1 ;" ENTER AS IN YOUR FACTBOOK":
   1 ;" Constellations   outside   the  zodiac  are  identified   with  capitals. Stars are shown with  small letters."
   1 ;" CALCULATING THE POSITION OF";
   1 ;" ARE YOU SURE? Y(yes) or N(no)":
   1 ;"  WHAT HAPPENS ":
   1 ;"  THE PLANET "+("VENUS"
   1 ;"  Press a NUMBER,then a LETTER       OR Press N to FINISH"
   1 ;"  Or ""F"" to leave the program   ";
   1 ;"   PROGRAM SAVE COMPLETED":
   1 ;"   PRESS ANY LETTER FOR NEXT       PRESS ""F"" TO FINISH"
   1 ;"   PRESS A KEY FOR NEXT PHASE"
   1 ;"    PRESS ""R"" TO START AGAIN"
   1 ;"     Press S to START AGAIN"
   1 ;"     LEAVE THE TAPE RUNNING";
   1 ;"      PRESS Y(yes) or N(no)"
   1 ;"      PRESS ""F"" OR ""V"""
   1 ;"      PRESS  ""F"" TO FINISH"
   1 ;"       PRESS ANY LETTER"
   1 ;"        Press C to CLEAR";
   1 ;"        PRESS ANY LETTER"
   1 ;"          STOP THE TAPE         ":
   1 ;"          On ";day;"/";month;"/";year
   1 ;"          ";
   1 ;"                  ":
   1 ;"                  "
   1 ;"                              ";
   1 ;"                              "
   1 ;"                                                                "
   1 ;"        
   1 :8:::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((:::::::::        00000000(((((((
   1 9,B~,3.394435
   1 888888888FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
   1 888888888888888888ppppppppppppppppp888888888888888pppppppppppppppppppp888888888888pppppppppppppppppppp88888888888888888888888888888888888888888888                                                                
   1 888888888888888888888
   1 88 8888888888888888888888888p888888 88888888888
   1 5,151.950429
   1 278.833540
   1 23/12/1987B
   1 1984 CHRIS SOMERVILLE"
   1 1,131.5606494
   1 0,.7729895
   1 ,98.833540
   1 ,73.8768642
   1 ,47.8672148
   1 ,355.73352
   1 ,349.383063
   1 ,335.6908166
   1 ,172.7363288
   1 ,165.322242
   1 ,14.0095493
   1 ,131.2895792
   1 ,126.30783
   1 ,113.4888341
   1 ,102.596403
   1 ,100.2520175
   1 ,1.8498011
   1 ,1.5236883
   1 +learth+aa
   1 +,146.966365
   1 +,.0484658
   1 )=moonlong:
   1 )="Discovered in 1781 by           Englishman WILLIAM HERSCHEL"
   1 )=" The SMALLEST PLANET             Smaller than our MOON"
   1 )=" Surrounded by a system of       RINGS made of tiny moonlets"
   1 )=" Neptune's surface FROZEN        -220 degrees Centigrade"
   1 )=" Nearest planet to the Earth     Hottest of all the planets"  
   1 )=" Jupiter is the BIGGEST planet"
   1 )="  Mars has two small moons             PHOBOS and DEIMOS"
   1 )="   Nearest planet to the SUN        It has no air or water"  
   1 );" MINS.":
   1 );" MILLION KILOMETRES":
   1 );" KILOMETRES":
   1 );" HOURS ";E(A,1
   1 );" DAYS ";E(A,1
   1 )+("YEARS"
   1 )+("SATURN"
   1 )+("JUPITER"
   1 )+("CRESCENT PHASE"
   1 )+(" QUARTER"
   1 ))+("GIBBOUS PHASE"
   1 ))+("FULL MOON"
   1 ))+("FIRST"
   1 ))+("ECLIPSE OF MOON"
   1 ))+("(See Page:47)"
   1 (YEAR)+" NOT A LEAP YEAR":
   1 (,.0090021
   1 ((ddd-ff1)*10^2):
   1 '"You might choose to list the    SURFACE TEMPERATURES or the     DIAMETERS of the planets.       I will then sort these into     numerical order."
   1 '"Please ENTER FIGURES and do not Enter Letters.                  If you want to enter a MINUS    number then PRESS KEY ""J""":
   1 '" The narrow band of sky on each  side of the ECLIPTIC is called           the ZODIAC"
   1 '" The SPACE PROBE COMPUTER has a  built in SAFETY CHECK and will    refuse to accept wrong DATA":
   1 '" PRESS ""V"" TO VIEW THE           ZODIAC STAR MAP                                                 USE CURSOR KEYS ""5"" AND ""8"""
   1 '" PRESS ""F"" TO END THIS PROGRAM"
   1 '" F)TO LEAVE THIS PROGRAM"
   1 '" E)TO SORT DATA (DEMONSTRATION)"
   1 '" D)TO SEARCH A DATA BANK"
   1 '" C)TO ASK QUESTIONS"
   1 '" B)TO CLEAR ALL MEMORY BANKS       AND START AGAIN"
   1 '" A)TO VIEW THE DATA BANK"
   1 '"  TO RE-LOAD YOUR PROGRAM AFTER    YOU HAVE SAVED IT YOU MUST:":
   1 '"  MERCURY","VENUS","  MARS","JUPITER","  SATURN","URANUS","  NEPTUNE","PLUTO"
   1 '"          PUBLISHED BY"
   1 &{a4,1.3041819
   1 %R~s,92.6653974
   1 "before the number."
   1 "When you wish to leave this     part of the program type ""999""":
   1 "VIRGO","VIRGIN",12
   1 "VENUS","H",12140
   1 "URANUS","C",49000
   1 "Type in special notes (up to 2  lines only)    Then Press ENTER ";g$(z,2
   1 "Then PRESS the ""ENTER"" Key."
   1 "The Data Bank you have created  is a very small one. A space-   ship's computer will have a     data bank programmed with many  millions of facts.              It will need time to SEARCH its MEMORY for the information you  require."
   1 "TAURUS","BULL",15
   1 "See if EARTH or SUN are in the  DATA BANK. What happens if you  want MARS and only enter ""M""?"
   1 "SUN","MOON","MERCURY","VENUS","MARS","JUPITER","SATURN","URANUS","NEPTUNE","PLUTO"
   1 "SCORPIUS","SCORPION",14
   1 "SATURN","C",119300
   1 "SAGITTARIUS","ARCHER",15
   1 "Please Type in a different      number for each planet in turn.                                 Choose suitable numbers from    the FACTBOOK. "
   1 "Planet name? or 999             ";t$:
   1 "PLUTO","C
   1 "PISCES","FISH",12
   1 "November  October  September    ","February January December Novemb","May    April    March    Februar","ber   August   July   June   May"  
   1 "NEPTUNE","C",48000
   1 "Mercury","Venus","Mars","Jupiter","Saturn","Uranus","Neptune","Pluto"
   1 "MERCURY","B",4870
   1 "MARS","C",6800
   1 "LINE No.","ADDRESS"'
   1 "LIBRA","SCALES",5
   1 "LEO","LION",10
   1 "JUPITER","H",142600
   1 "If you want to enter a DECIMAL  POINT then PRESS KEY ""M"""
   1 "I WILL TRY TO LOCATE THAT       PLANET IF IT IS IN MY MEMORY    BANKS. YOU CAN TRY THIS AS MANY TIMES AS YOU LIKE.              EVEN IF YOU ONLY ENTER PART OF  THE PLANET'S NAME, OR EVEN JUST THE FIRST LETTER, I WILL   TRY  TO FIND IT."
   1 "GEMINI","TWINS",12
   1 "FOUND ";X$(J,1
   1 "ENTER NUMBER for ";(Z$(a));I$:
   1 "CAPRICORNUS","GOAT",7
   1 "CANCER","CRAB",8
   1 "ARIES","RAM",6
   1 "AQUARIUS","WATER CARRIER",16
   1 " you the Phase of today, or any":
   1 " the Moon's Phases.  I can show":
   1 " other day.   Or I can show you":
   1 " of it illuminated  by the Sun.":
   1 " moves we  see  different parts":
   1 " changes for a whole month."
   1 " We call these  changing  views":
   1 " The Moon  travels  around  the":
   1 " TO MOVE BACK AND FORTH ALONG    THE LINE OF THE ECLIPTIC":
   1 " THIS PAGE ."
   1 " Press ""F"" to Leave this Part"
   1 " PRESS ANY LETTER TO CONTINUE"
   1 " PRESS ANY LETTER FOR NEXT PAGE"
   1 " KEY ""0"" WILL RETURN YOU TO":
   1 " IF YOU PRESS ""F"" THEN I WILL":
   1 " Earth  once  a  month :  As it":
   1 " ANY EXTRA ""STAR"" TO APPEAR IN":
   1 " A CONSTELLATION WILL BE ONE OF          THESE PLANETS."
   1 " 8)PLUTO";
   1 " 7)NEPTUNE";
   1 " 6)URANUS";
   1 " 5)SATURN";
   1 " 4)JUPITER";
   1 " 3)MARS";
   1 " 2)VENUS";
   1 " 1)MERCURY";
   1 " "+("DAYS"
   1 "  WE CAN SPOT THE 4 BRIGHTEST     PLANETS IN THE SKY WITH THE              NAKED EYE."
   1 "  SHOW YOU HOW QUICKLY I CAN            SORT THE NUMBERS."
   1 "  PLANETS move around the SUN    and from the EARTH we see them  travel along a narrow band of    sky called the ZODIAC. There   are 12 CONSTELLATIONS of STARS           in this band."
   1 "  Is this the one you wanted?        Press Y(yes)or N(no)"
   1 "    PRESS A LETTER TO CHOOSE"
   1 "     FOR CHALKSOFT LTD."
   1 "      PIPER BOOKS LTD.1984"
   1 "       PRESS ""C"" TO CLEAR"
   1 !,260.3578998
   1  THE CONSTELLATIONS 
   1  SPECIFIC MOONPHASE
   1  PRESS A LETTER"
   1  PLANET. THEN"
   1  NUMBER OF A"
   1  LOAD ""planets"""
   1  FOR INFORMATION"
   1  FIRST PRESS THE"
   1  Days  ORBITS EARTH:  Once in          
   1  Days  MERCURY                         
   1  CLEAR 62646            2) 
   1  1984 Chris Somerville            For Chalksoft Ltd.         PUBLISHED BY PIPER BOOKS LTD.               1984"
   1  1984 C.C.Somerville":
   1  ,5.202561
   1   planet spotter
   1   moon  explorer
   1   From Earth       ROTATES:       Once in          
   1    about -230
   1    Nearest planet to the SUN        It has no air or water         Nearest planet to the SUN        It has no air or water       Nearest planet to the Earth     Hottest of all the planets      Nearest planet to the Earth     Hottest of all the planets       Mars has two small moons             PHOBOS and DEIMOS        Mars has two moons                                               Jupiter is the BIGGEST planet                                   Jupiter is the BIGGEST planet                                   Surrounded by a system of       RINGS made of tiny moonlets                                                                    Discovered in 1781 by           Englishman WILLIAM HERSCHEL                                                                      Neptune's surface FROZEN        -220 degrees Centigrade         Neptune's surface FROZEN        -220 degrees Centigrade         The SMALLEST PLANET             Smaller than our MOON           The SMALLEST PLANET             Smaller than our MOON        
   1      giant moon Titan DISTANCE:      1427 million km  
   1      and Methane      SATELLITES:    5                                                DISTANCE:      2870 million km  
   1      and Methane      SATELLITES:    2                
   1      Callisto largest DISTANCE:      778.3 Million km 
   1        from the Sun     ORBITAL PERIOD:84 years         
   1        from the Sun     ORBITAL PERIOD:248 years                                        ROTATES:       Once in 6 days   
   1        from the Sun     ORBITAL PERIOD:165 years        
   1         other planets EARTH                           
   1         and 9 hours      DIAMETER:      Not known.                      5-6 thousand km                                                                  
   1         and 49 minutes   DIAMETER:      49,000 km        
   1         and 48 minutes   DIAMETER:      48,000 km        
   1         and 14 minutes   DIAMETER:      119,300 km       
   1         & 50 minutes     DIAMETER:      142,600 km                                                                           THE BIGGEST PLANET          SATURN                          
   1          from the Sun   ORBITAL PERIOD:687 days         
   1          Helium       SATELLITES:    16-Ganymede &    
   1          & 37.5 minutes  DIAMETER:      6800 km          
   1           and 56 minutes DIAMETER:      12,756 km        
   1           Deimos)     DISTANCE:      222 million km   
   1           27
   1            from the Sun ORBITAL PERIOD:365 Days         
   1            from the Sun ORBITAL PERIOD:225 days         
   1            Oxygen     SATELLITES:    1 (the Moon)     
   1            FACTBOOK             I
   1            FACTBOOK
   1             from Sun    ORBITAL PERIOD:88 Days          
   1             Gravity      MEAN DISTANCE: 384,000 km       
   1              Helium   SATELLITES     21 including     
   1               from Sun  ORBITAL PERIOD:29.5 years       
   1               Volume      MEAN DENSITY:  3.34 (Water=1)   
   1               PAGES MOON PHASES 
   1                from Sun ORBITAL PERIOD:11.9 years       
   1                27
   1                 Mass        GRAVITY        1/6 Earth's      
   1                   ROTATES:       Once in 9 hours  
   1                   ROTATES:       Once in 24hours  
   1                   ROTATES:       Once in 23 hours 
   1                   ROTATES:       Once in 15 hours 
   1                    ATMOSPHERE:    None             
   1                     MASS:          1/81 Earth's     
   1                     ATMOSPHERE:    Nitrogen and     
   1                       SATELLITES:    None                                             DISTANCE:      57.9 million km  
   1                       SATELLITES:    2 (Phobos &      
   1                       DISTANCE:      5900 million km  
   1                       DISTANCE:      4500 million km  
   1                       DISTANCE:      149.6 million km 
   1                       DISTANCE:      108.2 million km 
   1                         VOLUME:        1/49 Earth's     
   1                         RETROGRADE:    Spin opposite to 
   1                          SURFACE TEMP.  415
   1                          SURFACE TEMP.  -220
   1                          SURFACE TEMP.  -150
   1                          DIAMETER:      4870 km                                                                                                          VENUS                           
   1                          DIAMETER:      4870 km          
   1                           SURFACE TEMP:  -210
   1                           SURFACE TEMP.  -180
   1                            SURFACE TEMP.  Not known.May be 
   1                            SURFACE TEMP.  475
   1                            SURFACE TEMP.  22
   1                             SURFACE TEMP.  -85
   1                             DIAMETER:      3476 km          
   1                                                             THE LIGHTEST PLANET         URANUS                          
   1                                                                                         PLUTO                           
   1                                                                                         NEPTUNE                         
   1                                                                                         MARS                            
   1                                                                                         JUPITER                         
   1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
   1